home *** CD-ROM | disk | FTP | other *** search
/ Internet Warrior 1993 July / Internet Warrior No. 1 July 1993 - Austin Code Works.ISO / tcpip / cuttcp / cutcp.zoo / sample.scr < prev    next >
Encoding:
Text File  |  1990-11-12  |  1.2 KB  |  38 lines
  1. flags debug
  2. echo "\e[2J\e[H"            ; clear the window
  3. flags nodebug
  4. message "\e[2J\e[H"            ; clear the console
  5. show console                ; lets display the console while we
  6.                     ; draw this stuff out.
  7. message "\e(0"                ; go to line drawing mode
  8. message "lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk\n"
  9. message "x                                                                x\n"
  10. message "mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj"
  11. message "\e(A"                ; turn back to normal chars
  12. message "\e[2;3H"            ; move cursor into box for prompt
  13. onerror forgetit
  14. ; if the user presses ESCAPE at the ask prompt, we generate an error that
  15. ; we can use to jump with.
  16. ask "Enter your FTP Userid (esc to Quit):"
  17. show console            ; the ask command will switch to the console
  18.                 ; for me, but it also restores the current
  19.                 ; view, so I switch it back to the console
  20.                 ; here
  21. message "\e[2;3H\e[0K\e[5mThanks!\e[0m\e[4;1H" ; pretty stuff here
  22. ;flags debug
  23. write "ftp "
  24. send myip
  25. write "\r"
  26. lookfor "Name"
  27. send ask
  28. write "\r"
  29. flags nocase
  30. lookfor "password:"
  31. send password
  32. write "\r"
  33. show current
  34. end
  35. label forgetit        ; person gets here if they pressed escape
  36. message "\e[2J\e[HFTP Aborted\n"
  37. show console
  38.